
do_obj_vel:
	mcallasm xfetch
	mcallasm vxfetch
	.db <dplus
	mcallasm xstore
	mcallasm yfetch
	mcallasm vyfetch
	.db <dplus
	mcallasm ystore
	.db <exit
